/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / getcmd.lbr

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 2a 2a 2a 2a 2a 2a 2a | 2a 44 49 52 00 00 01 00 |.*******|*DIR....|
|00000010| 30 37 2d 32 30 2d 38 35 | 31 37 3a 31 34 3a 35 33 |07-20-85|17:14:53|
|00000020| 00 47 45 54 43 4d 44 20 | 20 44 4f 43 01 00 09 00 |.GETCMD | DOC....|
|00000030| 30 37 2d 32 30 2d 38 35 | 31 37 3a 31 35 3a 31 34 |07-20-85|17:15:14|
|00000040| 00 47 45 54 43 4d 44 20 | 20 4f 42 4a 0a 00 02 00 |.GETCMD | OBJ....|
|00000050| 30 37 2d 32 30 2d 38 35 | 31 37 3a 31 35 3a 31 34 |07-20-85|17:15:14|
|00000060| ff 47 45 54 43 4d 44 20 | 20 4f 42 4a 0a 00 02 00 |.GETCMD | OBJ....|
|00000070| 30 37 2d 32 30 2d 38 35 | 31 37 3a 31 35 3a 31 34 |07-20-85|17:15:14|
|00000080| 0d 0a 20 20 52 6f 75 74 | 69 6e 65 20 6e 61 6d 65 |..  Rout|ine name|
|00000090| 3a 20 47 45 54 43 4d 44 | 0d 0a 0d 0a 20 20 44 65 |: GETCMD|....  De|
|000000a0| 73 63 72 69 70 74 69 6f | 6e 3a 20 20 54 68 69 73 |scriptio|n:  This|
|000000b0| 20 72 6f 75 74 69 6e 65 | 20 69 73 20 75 73 65 64 | routine| is used|
|000000c0| 20 69 6e 20 63 6f 6e 6a | 75 6e 63 74 69 6f 6e 20 | in conj|unction |
|000000d0| 77 69 74 68 20 63 6f 6d | 70 69 6c 65 64 20 49 42 |with com|piled IB|
|000000e0| 4d 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |M..     |        |
|000000f0| 20 20 20 42 61 73 69 63 | 20 74 6f 20 72 65 74 72 |   Basic| to retr|
|00000100| 69 65 76 65 20 74 68 65 | 20 63 6f 6e 74 65 6e 74 |ieve the| content|
|00000110| 73 20 6f 66 20 74 68 65 | 20 63 6f 6d 6d 61 6e 64 |s of the| command|
|00000120| 20 6c 69 6e 65 20 75 73 | 65 64 0d 0a 20 20 20 20 | line us|ed..    |
|00000130| 20 20 20 20 20 20 20 20 | 20 20 20 20 74 6f 20 65 |        |    to e|
|00000140| 78 65 63 75 74 65 20 74 | 68 65 20 74 68 65 20 70 |xecute t|he the p|
|00000150| 72 6f 67 72 61 6d 2e 20 | 20 54 68 65 20 70 61 72 |rogram. | The par|
|00000160| 61 6d 65 74 65 72 20 73 | 74 72 69 6e 67 20 6d 61 |ameter s|tring ma|
|00000170| 79 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |y..     |        |
|00000180| 20 20 20 74 68 65 6e 20 | 62 65 20 65 61 73 69 6c |   then |be easil|
|00000190| 79 20 70 61 72 73 65 64 | 20 62 79 20 74 68 65 20 |y parsed| by the |
|000001a0| 42 61 73 69 63 20 70 72 | 6f 67 72 61 6d 20 69 74 |Basic pr|ogram it|
|000001b0| 73 65 6c 66 2e 0d 0a 0d | 0a 20 20 43 61 6c 6c 69 |self....|.  Calli|
|000001c0| 6e 67 20 73 65 71 75 65 | 6e 63 65 3a 0d 0a 0d 0a |ng seque|nce:....|
|000001d0| 20 20 20 20 20 43 4d 44 | 24 3d 53 50 41 43 45 24 |     CMD|$=SPACE$|
|000001e0| 28 6c 65 6e 29 20 20 20 | 20 20 20 27 20 45 73 74 |(len)   |   ' Est|
|000001f0| 61 62 6c 69 73 68 20 73 | 74 72 69 6e 67 20 74 6f |ablish s|tring to|
|00000200| 20 72 65 63 65 69 76 65 | 20 63 6f 6d 6d 61 6e 64 | receive| command|
|00000210| 20 6c 69 6e 65 0d 0a 20 | 20 20 20 20 43 41 4c 4c | line.. |    CALL|
|00000220| 20 47 45 54 43 4d 44 20 | 28 43 4d 44 24 29 20 20 | GETCMD |(CMD$)  |
|00000230| 20 20 27 20 52 65 74 72 | 69 65 76 65 20 63 6f 6d |  ' Retr|ieve com|
|00000240| 6d 61 6e 64 20 6c 69 6e | 65 0d 0a 0d 0a 20 20 42 |mand lin|e....  B|
|00000250| 75 69 6c 64 20 73 65 71 | 75 65 6e 63 65 3a 0d 0a |uild seq|uence:..|
|00000260| 0d 0a 20 20 20 20 20 4c | 49 4e 4b 20 42 41 53 50 |..     L|INK BASP|
|00000270| 52 4f 47 2b 47 45 54 43 | 4d 44 3b 0d 0a 0d 0a 20 |ROG+GETC|MD;.... |
|00000280| 20 4e 6f 74 65 3a 20 54 | 68 65 20 6d 61 78 69 6d | Note: T|he maxim|
|00000290| 75 6d 20 6e 75 6d 62 65 | 72 20 6f 66 20 63 68 61 |um numbe|r of cha|
|000002a0| 72 61 63 74 65 72 73 20 | 72 65 74 75 72 6e 65 64 |racters |returned|
|000002b0| 20 69 73 20 64 65 74 65 | 72 6d 69 6e 65 64 20 62 | is dete|rmined b|
|000002c0| 79 20 74 68 65 0d 0a 20 | 20 20 20 20 20 20 20 6c |y the.. |       l|
|000002d0| 65 6e 67 74 68 20 6f 66 | 20 74 68 65 20 73 74 72 |ength of| the str|
|000002e0| 69 6e 67 20 76 61 72 69 | 61 62 6c 65 20 70 61 73 |ing vari|able pas|
|000002f0| 73 65 64 20 61 73 20 61 | 20 70 61 72 61 6d 65 74 |sed as a| paramet|
|00000300| 65 72 20 6f 6e 20 74 68 | 65 20 43 41 4c 4c 20 0d |er on th|e CALL .|
|00000310| 0a 20 20 20 20 20 20 20 | 20 6f 72 20 62 79 20 74 |.       | or by t|
|00000320| 68 65 20 61 63 74 75 61 | 6c 20 6c 65 6e 67 74 68 |he actua|l length|
|00000330| 20 6f 66 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 20 | of the |command |
|00000340| 6c 69 6e 65 20 65 6e 74 | 65 72 65 64 2e 20 20 54 |line ent|ered.  T|
|00000350| 68 65 20 6e 61 6d 65 0d | 0a 20 20 20 20 20 20 20 |he name.|.       |
|00000360| 20 6f 66 20 74 68 65 20 | 70 72 6f 67 72 61 6d 20 | of the |program |
|00000370| 65 6e 74 65 72 65 64 20 | 77 69 6c 6c 20 68 61 76 |entered |will hav|
|00000380| 65 20 62 65 65 6e 20 73 | 74 72 69 70 70 65 64 20 |e been s|tripped |
|00000390| 6f 66 66 20 62 79 20 74 | 68 65 20 44 4f 53 20 0d |off by t|he DOS .|
|000003a0| 0a 20 20 20 20 20 20 20 | 20 6f 70 65 72 61 74 69 |.       | operati|
|000003b0| 6e 67 20 73 79 73 74 65 | 6d 2e 0d 0a 20 20 20 20 |ng syste|m...    |
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 0d |        |       .|
|000003d0| 0a 09 69 2e 65 2e 20 20 | 49 66 20 74 68 65 20 44 |..i.e.  |If the D|
|000003e0| 4f 53 20 63 6f 6d 6d 61 | 6e 64 20 6c 69 6e 65 20 |OS comma|nd line |
|000003f0| 65 6e 74 65 72 65 64 20 | 77 65 72 65 3a 0d 0a 0d |entered |were:...|
|00000400| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000410| 20 20 20 52 55 4e 50 52 | 4f 47 20 54 48 49 53 20 |   RUNPR|OG THIS |
|00000420| 49 53 20 41 20 53 45 54 | 20 4f 46 20 50 41 52 41 |IS A SET| OF PARA|
|00000430| 4d 45 54 45 52 53 20 3c | 65 6e 74 65 72 3e 0d 0a |METERS <|enter>..|
|00000440| 20 20 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |  ..    |        |
|00000450| 20 54 68 65 6e 20 74 68 | 65 20 73 74 72 69 6e 67 | Then th|e string|
|00000460| 20 72 65 74 75 72 6e 65 | 64 20 74 6f 20 74 68 65 | returne|d to the|
|00000470| 20 42 61 73 69 63 20 70 | 72 6f 67 72 61 6d 20 77 | Basic p|rogram w|
|00000480| 6f 75 6c 64 20 62 65 3a | 0d 0a 0d 0a 20 20 20 20 |ould be:|....    |
|00000490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 22 54 |        |      "T|
|000004a0| 48 49 53 20 49 53 20 41 | 20 53 45 54 20 4f 46 20 |HIS IS A| SET OF |
|000004b0| 50 41 52 41 4d 45 54 45 | 52 53 22 0d 0a 0d 0a 20 |PARAMETE|RS".... |
|000004c0| 20 20 20 20 20 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |     ...|........|
|000004d0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000004e0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000004f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000500| 80 03 00 01 41 3b 96 07 | 00 00 04 43 53 45 47 3d |....A;..|...CSEG=|
|00000510| 98 07 00 60 50 00 02 01 | 01 ad a0 54 00 01 00 00 |...`P...|...T....|
|00000520| 55 8b ec 1e 06 8b 5e 06 | 8b 0f e3 22 8b 7f 02 1e |U.....^.|..."....|
|00000530| 07 8b 56 04 83 ea 10 8e | da 8a 16 80 00 0a d2 74 |..V.....|.......t|
|00000540| 0d 8a f2 2a f1 73 02 8a | ca be 81 00 f3 a4 07 1f |...*.s..|........|
|00000550| 5d ca 02 00 48 75 64 73 | 6f 6e 20 43 6f 6e 73 75 |]...Huds|on Consu|
|00000560| 6c 74 69 6e 67 2c 20 45 | 64 69 6e 61 20 4d 4e 2e |lting, E|dina MN.|
|00000570| c3 90 0d 00 00 01 06 47 | 45 54 43 4d 44 00 00 00 |.......G|ETCMD...|
|00000580| a8 8a 02 00 00 74 00 00 | 00 00 00 00 00 00 00 00 |.....t..|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+